﻿Public Class masabogroup
    Private masabogroupID = Nothing
    Private masabogroupDesc = Nothing
    Private masabogroupStatus = Nothing
    Private selectMasabogroup = "SELECT  `abogroup` as 'รหัสกรุ๊ปเลือด',`abogroupdesc` as 'กรุ๊ปเลือด', `status` as 'สถานะการเปิดใช้งาน' FROM masabogroup "
    Dim connect As CONDB = CONDB.NewConnection()
    'Dim connectlocal As conlocal = conlocal.NewConnection

    Property masabogroupID_ As Integer
        Get
            Return masabogroupID
        End Get
        Set(value As Integer)
            masabogroupID = value
        End Set
    End Property

    Property masabogroupDesc_ As String
        Get
            Return masabogroupDesc
        End Get
        Set(value As String)
            masabogroupDesc = value
        End Set
    End Property

    Property masabogroupStatus_ As Boolean
        Get
            Return masabogroupStatus
        End Get
        Set(value As Boolean)
            If value = True Then
                masabogroupStatus = 1
            Else
                masabogroupStatus = 0
            End If
        End Set
    End Property

    Property selectMasabogroup_ As String
        Get
            Return selectMasabogroup
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub insertAbogroupData()
        If masabogroupDesc <> "" Then
            If TypeOf masabogroupDesc Is String Then
                If connect.GetTable("SELECT abogroupdesc FROM masabogroup WHERE abogroupdesc = '" & masabogroupDesc & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูลกรุ๊ปเลือดนี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()

                        connect.ExecuteNonQuery("INSERT INTO masabogroup (ABOGROUPDESC, STATUS) VALUE ('" & masabogroupDesc & "', '" & masabogroupStatus & "');")
                        'connectlocal.ExecuteNonQuery("INSERT INTO [ABOGROUP] ([ABOGROUP], [ABOGROUPDESC], [STATUS]) VALUES (" & lastID & ", '" & masabogroupDesc & "', " & masabogroupStatus & ");")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูลกรุ๊ปเลือดเรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีเลขรหัสกรุ๊ปเลือดนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try
                    'connectlocal.Dispose()
                    connect.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("โปรดกรุณาระบุข้อมูลให้ครบถ้วน")
        End If
    End Sub

    Public Sub updateAbogroupData()
        If masabogroupID > 0 And masabogroupDesc <> "" Then
            connect = CONDB.NewConnection()
            'connectlocal = conlocal.NewConnection()

            If TypeOf masabogroupDesc Is String Then
                Try
                    connect.BeginTrans()
                    connect.ExecuteNonQuery("UPDATE masabogroup SET ABOGROUPDESC = '" & masabogroupDesc & "', STATUS = '" & masabogroupStatus & "' WHERE ABOGROUP = '" & masabogroupID & "';")
                    connect.CommitTrans()
                    'connectlocal.ExecuteNonQuery("UPDATE [ABOGROUP] SET [ABOGROUPDESC] = '" & masabogroupDesc & "', STATUS = '" & masabogroupStatus & "' WHERE ABOGROUP = '" & masabogroupID & "'")
                    MsgBox("ท่านได้ทำการแก้ไขข้อมูลกรุ๊ปเลือดเรียบร้อยแล้ว")
                Catch ex As Exception
                    connect.RollbackTrans()
                    MsgBox("มีเลขรหัสกรุ๊ปเลือดนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                End Try
                'connectlocal.Dispose()
                connect.Dispose()
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

End Class
